6890 BEEP:LOCATE 15,50:PRINT "PRESS ANY KEY TO CONTINUE":FOR I=1 TO 100:NEXT I:BEEP
6899 Z$=INKEY$:IF Z$="" THEN GOTO 6899
6900 TERRY=1
6901 CLS:KEY OFF:SCREEN 0:WIDTH 80:INPUT "ENTER A NUMBER BETWEEN 1 AND 100";XX
6902 IF XX<100 AND XX>0 THEN GOTO 55
6903 FOR I= 1 TO 50:SCREEN 1:COLOR I,I,I:NEXT I
6904 SCREEN 0:COLOR 0,7:LOCATE 12,30:PRINT "I SAID BETWEEN 1 AND 100 DUMMY
6905 FOR I= 1 TO 4000:NEXT I :GOTO 6901
6910 CLS:BEEP
6920 GETOUT = 0:SCORE=0:Z$=" "
6930 SCREEN 0:WIDTH 80:COLOR 4
6940 LOCATE 3,28:PRINT "U.S.A. A KNOWLEGE TOOL
6950 LOCATE 5,32:PRINT "BY TERRY EIKAMP
6960 LOCATE 10,20:PRINT "1. REVIEW THE STATES AND THEIR CAPITALS
6970 LOCATE 12,20:PRINT "2. TEST ON THE STATES OF THE U.S.A.
6980 LOCATE 14,20:PRINT "3. TEST ON THE CAPITALS OF THE STATES
6990 LOCATE 16,20:PRINT "4. END PROGRAM
7000 LOCATE 19,20:INPUT "ENTER THE NUMBER OF YOUR CHOICE ";CHOICE
7010 IF CHOICE=4 THEN CLS :COLOR 7:GOTO 10000
7020 IF CHOICE=2 GOTO 7170
7030 IF CHOICE=3 GOTO 7090
7040 CLS
7050 PRINT " THIS PART OF THE U.S.A. PROGRAM GIVES YOU A REVIEW OF THE STATES AND THEIR CAPITALS. THE STATE SHOWN IN THE COLOR RED IS RANDOMLY GENERATED. TO REVIEW MORESTATES JUST PRESS THE SPACE BAR.
7060 LOCATE 12,20:PRINT "PRESS ANY KEY TO CONTINUE
7070 Z$=INKEY$:IF Z$="" THEN GOTO 7070
7080 GOTO 7240
7090 CLS
7100 PRINT " THIS PART OF THE U.S.A. PROGRAM GIVES YOU A TEST ON THE CAPITAL OF THE STATES.THE STATE WILL BE SHOWN AT THE TOP OF THE SCREEN AND IT WILL BE FILLED IN ON THEMAP IN RED.
7110 PRINT:PRINT " YOU MUST ENTER IN THE CORRECT CAPITAL OF THE STATE SHOWN. SPELLING COUNTS BUT YOU NEED ONLY TO ENTER THE FIRST 5 LETTERS OF EACH CAPITAL.
7120 PRINT :PRINT " YOU WILL BE GIVEN 3 CHANCES TO ANSWER WITH THE CORRECT CAPITAL. IF YOU ARE STILL WRONG AFTER 3 CHANCES THE CORRECT ANSWER WILL BE SHOWN ON THE SCREEN.
7140 LOCATE 23,20:PRINT "PRESS ANY KEY TO CONTINUE
7150 Z$=INKEY$:IF Z$="" THEN GOTO 7150
7160 GOTO 7240
7170 CLS
7180 PRINT " THIS PART OF THE U.S.A. PROGRAM GIVES YOU A TEST ON THE STATES. YOU MUST ENTERTHE NAME OF THE STATE SHOWN IN RED.
7190 PRINT:PRINT " SPELLING COUNTS BUT YOU ONLY HAVE TO ENTER THE FIRST 5 LETTERS OF THE STATE. WHEN ENTERING STATES THAT START WITH NORTH,SOUTH,WEST YOU MUST ENTER THEM AS N. S. W. (EXAMPLE NORTH DAKOTA MUST BE ENTERED AS N. DAKOTA OR N. DAK)
7200 PRINT :PRINT " YOU WILL BE GIVEN 3 CHANCES TO ANSWER WITH THE CORRECT STATE. IF YOU ARE STILLWRONG AFTER 3 CHANCES THE CORRECT ANSWER WILL BE SHOWN ON THE SCREEN.
7220 LOCATE 23,20:PRINT "PRESS ANY KEY TO CONTINUE
7230 Z$=INKEY$:IF Z$="" THEN GOTO 7230
7240 IF I=1 THEN GOTO 7260
7250 SCREEN 1:COLOR 1,0:I=I+1:GOTO 100
7260 '
7270 PAINT (294,24),0,1
7280 PAINT (290,44),0,1
7290 PAINT (280,40),0,1
7300 PAINT (286,52),0,1
7310 PAINT (294,56),0,1
7320 PAINT (286,57),0,1
7330 PAINT (270,40),0,1
7340 PAINT (278,64),0,1
7350 PAINT (262,70),0,1
7360 PAINT (276,80),0,1
7370 PAINT (268,79),0,1
7380 PAINT (262,88),0,1
7390 PAINT (256,88),0,1
7400 PAINT (256,110),0,1
7410 PAINT (256,120),0,1
7420 PAINT (240,130),0,1
7430 PAINT (240,150),0,1
7440 PAINT (220,130),0,1
7450 PAINT (200,130),0,1
7460 PAINT (220,110),0,1
7470 PAINT (230,96),0,1
7480 PAINT (230,80),0,1
7490 PAINT (220,56),0,1
7500 PAINT (200,36),0,1
7510 PAINT (200,50),0,1
7520 PAINT (200,80),0,1
7530 PAINT (246,88),0,1
7540 PAINT (214,88),0,1
7550 PAINT (174,40),0,1
7560 PAINT (174,70),0,1
7570 PAINT (174,90),0,1
7580 PAINT (174,120),0,1
7590 PAINT (180,140),0,1
7600 PAINT (150,140),0,1
7610 PAINT (150,120),0,1
7620 PAINT (150,90),0,1
7630 PAINT (150,70),0,1
7640 PAINT (150,50),0,1
7650 PAINT (150,30),0,1
7660 PAINT (100,30),0,1
7670 PAINT (100,50),0,1
7680 PAINT (100,90),0,1
7690 PAINT (100,120),0,1
7700 PAINT (70,120),0,1
7710 PAINT (70,90),0,1
7720 PAINT (70,40),0,1
7730 PAINT (40,20),0,1
7740 PAINT (40,40),0,1
7750 PAINT (40,70),0,1
7760 PAINT (40,120),0,1
7770 '
7780 '
7790 '
7800 ON CHOICE GOTO 7810,8460,9040
7810 XX=XX+1
7820 C=2
7830 RANDOMIZE XX
7840 S=INT((100*RND)/2)
7850 GOSUB 7960
7860 LOCATE 1,10:PRINT "THE STATE IN RED IS"
7870 LOCATE 23,22:PRINT "'+` TO END
7880 LOCATE 22,2:PRINT C$
7890 LOCATE 23,2:PRINT N$
7900 Z$=INKEY$:IF Z$=""THEN GOTO 7900
7910 C=0
7920 GOSUB 7960
7930 PAINT (20,180),1,1
7940 IF Z$="+" THEN GOTO 6910
7950 GOTO 7810
7960 IF S=1 OR S=0 THEN N$="ALABAMA":C$="MONTGOMERY":PAINT (220,130),C,1:RETURN
7970 IF S=2 THEN N$="ARIZONA":C$="PHOENIX":PAINT (70,120),C,1:RETURN
7980 IF S=3 THEN N$="NEW MEXICO":C$="SANTA FE":PAINT (90,120),C,1:RETURN
7990 IF S=4 THEN N$="ARKANSAS":C$="LITTLE ROCK":PAINT (180,120),C,1:RETURN
8000 IF S=5 THEN N$="CALIFORNIA":C$="SACRAMENTO":PAINT (40,120),C,1:RETURN
8010 IF S=6 THEN N$="COLORADO":C$="DENVER":PAINT (110,90),C,1:RETURN
8020 IF S=7 THEN N$="CONNECTICUT":C$="HARTFORD":PAINT (288,57),C,1:RETURN
8030 IF S=8 OR S=50 THEN N$="RHODE ISLAND":C$="PROVIDENCE":PAINT (294,56),C,1:RETURN
8040 IF S=9 THEN N$="DELAWARE":C$="DOVER":PAINT (276,81),C,1:RETURN
8050 IF S=10 THEN N$="MARYLAND":C$="ANNAPOLIS":PAINT (268,78),C,1:RETURN
8060 IF S=11 OR S=49 THEN N$="FLORIDA":C$="TALLAHASSEE":PAINT (260,176),C,1:RETURN
8070 IF S=12 THEN N$="GEORGIA":C$="ATLANTA":PAINT (250,142),C,1:RETURN
8080 IF S=13 THEN N$="IDAHO":C$="BOISE":PAINT (70,50),C,1:RETURN
8090 IF S=14 THEN N$="ILLINOIS":C$="SPRINGFIELD":PAINT (200,80),C,1:RETURN
8100 IF S=15 THEN N$="INDIANA":C$="INDIANAPOLIS":PAINT (214,80),C,1:RETURN
8110 IF S=16 THEN N$="IOWA":C$="DES MOINES":PAINT (170,70),C,1:RETURN
8120 IF S=17 THEN N$="KANSAS":C$="TOPEKA":PAINT (150,90),C,1:RETURN
8130 IF S=18 THEN N$="KENTUCKY":C$="FRANKFORT":PAINT (214,100),C,1:RETURN
8140 IF S=19 THEN N$="LOUISIANA":C$="BATON ROUGE":PAINT (180,140),C,1:RETURN
8150 IF S=20 THEN N$="MAINE":C$="AUGUSTA":PAINT (294,20),C,1:RETURN
8160 IF S=21 THEN N$="MASSACHUSETTS":C$="BOSTON":PAINT (290,52),C,1:RETURN
8170 IF S=22 THEN N$="MICHIGAN":C$="LANSING":PAINT (220,50),C,1:PAINT (206,38),C,1:RETURN
8180 IF S=23 THEN N$="MINNESOTA":C$="ST PAUL":PAINT (180,28),C,1:RETURN
8190 IF S=24 THEN N$="MISSISSIPPI":C$="JACKSON":PAINT (200,140),C,1:RETURN
8200 IF S=25 THEN N$="MISSOURI":C$="JEFFERSON CITY":PAINT (180,90),C,1:RETURN
8210 IF S=26 THEN N$="MONTANA":C$="HELENA":PAINT (100,30),C,1:RETURN
8220 IF S=27 THEN N$="NEBRASKA":C$="LINCOLN":PAINT (140,70),C,1:RETURN
8230 IF S=28 THEN N$="NEVADA":C$="CARSON CITY":PAINT (40,70),C,1:RETURN
8240 IF S=29 THEN N$="UTAH":C$="SALT LAKE CITY":PAINT (70,70),C,1:RETURN
8250 IF S=30 THEN N$="NEW HAMPSHIRE":C$="CONCORD":PAINT (290,40),C,1:RETURN
8260 IF S=31 THEN N$="VERMONT":C$="MONTPELIER":PAINT (282,40),C,1:RETURN
8270 IF S=32 THEN N$="NEW JERSEY":C$="TRENTON":PAINT (280,70),C,1:RETURN
8280 IF S=33 THEN N$="NEW YORK":C$="ALBANY":PAINT (280,56),C,1:RETURN
8290 IF S=34 THEN N$="N. CAROLINA":C$="RALEIGH":PAINT (270,110),C,1:RETURN
8300 IF S=35 THEN N$="N. DAKOTA":C$="BISMARCK":PAINT (140,30),C,1:RETURN
8310 IF S=36 THEN N$="S. DAKOTA":C$="PIERRE":PAINT (140,50),C,1:RETURN
8320 IF S=37 THEN N$="OHIO":C$="COLUMBUS":PAINT (240,70),C,1:RETURN
8330 IF S=38 THEN N$="OKLAHOMA":C$="OKLAHOMA CITY":PAINT (150,120),C,1:RETURN
8340 IF S=39 THEN N$="OREGON":C$="SALEM":PAINT (50,40),C,1:RETURN
8350 IF S=40 THEN N$="PENNSYLVANIA":C$="HARRISBURG":PAINT (260,70),C,1:RETURN
8360 IF S=41 THEN N$="S. CAROLINA":C$="COLUMBIA":PAINT (254,120),C,1:RETURN
8370 IF S=42 THEN N$="TENNESSEE":C$="NASHVILLE":PAINT (210,116),C,1:RETURN
8380 IF S=43 THEN N$="TEXAS":C$="AUSTIN":PAINT (140,150),C,1:RETURN
8390 IF S=44 THEN N$="VIRGINA":C$="RICHMOND":PAINT (260,90),C,1:RETURN
8400 IF S=45 THEN N$="WASHINGTON":C$="OLYMPIA":PAINT (40,24),C,1:RETURN
8410 IF S=46 THEN N$="W. VIRGINIA":C$="CHARLESTON":PAINT (246,88),C,1:RETURN
8420 IF S=47 THEN N$="WISCONSIN":C$="MADISON":PAINT (200,50),C,1:RETURN
8430 IF S=48 THEN N$="WYOMING":C$="CHEYENNE":PAINT (100,60),C,1:RETURN
8440 RETURN
8450 IF S=8 OR S=50 THEN N$="RHODE ISLAND" AND C$="PROVIDENCE":PAINT (294,56),C,1:RETURN
8460 XX=XX+1
8470 C=2
8480 RANDOMIZE XX
8490 S=INT((100*RND)/2)
8500 GOSUB 7960
8510 LOCATE 1,10:PRINT "THE STATE IN RED IS
8520 LOCATE 23,22:PRINT"'+` TO END
8530 LOCATE 25,2:INPUT;" ";ANSWER$
8540 GETOUT=GETOUT+1
8550 IF LEFT$(ANSWER$,1)="+" THEN Z$="+"
8560 IF LEFT$(ANSWER$,5)=LEFT$(N$,5) THEN GOTO 8710
8570 IF LEFT$(ANSWER$,1)="+" AND GETOUT <2 THEN GOTO 6910
8580 IF LEFT$(ANSWER$,1)="+" THEN Z$="+":GOTO 8790
8590 LOCATE 24,2:PRINT "WRONG",:BEEP
8600 FOR I=1 TO 1000:NEXT I
8610 COUNT=COUNT+1
8620 PAINT (20,190),1,1
8630 IF COUNT < 3 THEN GOTO 8530
8640 LOCATE 23,2:PRINT "CORRECT";
8650 LOCATE 24,2:PRINT "STATE IS";
8660 LOCATE 25,2:PRINT N$;
8670 FOR I=1 TO 3000:NEXT I
8680 PAINT (20,190),1,1
8690 IF Z$="+" THEN GOTO 8790
8700 GOTO 8790
8710 LOCATE 24,2:PRINT "CORRECT";:BEEP
8720 SCORE=SCORE+1
8730 SCORE(SCORE)=S
8740 IF SCORE=48 GOTO 8840
8750 FOR I=1 TO 1000:NEXT I
8760 PAINT (20,190),1,1
8770 FOR I=1 TO 1000:NEXT I
8780 PAINT (20,190),1,1
8790 C=0
8800 COUNT =0
8810 GOSUB 7960
8820 IF Z$="+" THEN GOTO 8840
8830 GOTO 8460
8840 PAINT (150,5),1,1
8850 FOR I=1 TO SCORE
8860 IF GETOUT < 2 THEN GOTO 6910
8870 S=SCORE(I)
8880 C=2
8890 GOSUB 7960
8900 LOCATE 20,2 :PRINT "CORRECT
8905 PAINT (20,195),1,1
8910 LOCATE 21,2 :PRINT "ANSWERS WERE
8920 IF CHOICE=3 THEN LOCATE 22,2:PRINT C$
8930 LOCATE 23,2 :PRINT N$
8940 BEEP
8950 FOR B=1 TO (CHOICE*1000):NEXT B
8960 IF I=SCORE THEN GOTO 8990
8970 PAINT (20,180),1,1
8980 NEXT I
8990 FOR B=1 TO (CHOICE*1000):NEXT B
9000 LOCATE 22,2:PRINT " "
9010 PAINT (20,180),1,1
9020 Z$=INKEY$:IF Z$="" THEN GOTO 9020
9030 CLEAR:GOTO 6910
9040 XX=XX+1
9050 C=2
9060 RANDOMIZE XX
9070 S=INT((100*RND)/2)
9080 GOSUB 7960
9090 LOCATE 1,8:PRINT "THE CAPITAL OF ";N$;" IS"
9100 LOCATE 23,22:PRINT"'+` TO END
9110 LOCATE 25,2:INPUT;" ";ANSWER$
9120 GETOUT=GETOUT+1
9130 IF LEFT$(ANSWER$,1)="+" THEN Z$="+"
9140 IF LEFT$(ANSWER$,5)=LEFT$(C$,5) THEN GOTO 9300
9150 IF LEFT$(ANSWER$,1)="+" AND GETOUT <2 THEN GOTO 6910
9160 IF LEFT$(ANSWER$,1)="+" THEN Z$="+":GOTO 9390
9170 LOCATE 24,2:PRINT "WRONG";:BEEP
9180 FOR I=1 TO 1000:NEXT I
9190 COUNT=COUNT+1
9200 PAINT (20,190),1,1
9210 IF COUNT < 3 THEN GOTO 9110
9220 LOCATE 23,2:PRINT "CORRECT";
9230 LOCATE 24,2:PRINT "CAPITAL IS";
9240 LOCATE 25,2:PRINT C$;
9250 FOR I=1 TO 3000:NEXT I
9260 PAINT (150,5),1,1
9270 PAINT (20,190),1,1
9280 IF Z$="+" THEN GOTO 9390
9290 GOTO 9390
9300 LOCATE 24,2:PRINT "CORRECT";:BEEP
9310 SCORE=SCORE+1
9320 SCORE(SCORE)=S
9330 IF SCORE=48 GOTO 9440
9340 FOR I=1 TO 1000:NEXT I
9350 PAINT (20,190),1,1
9360 PAINT (150,5),1,1
9370 FOR I=1 TO 1000:NEXT I
9380 PAINT (20,190),1,1
9390 C=0
9400 COUNT =0
9410 GOSUB 7960
9420 IF Z$="+" THEN GOTO 9440
9430 GOTO 9040
9440 GOTO 8840
10000 SCREEN 0:COLOR 7,1,0:WIDTH 40
10005 X=24 :Y=0
10010 LOCATE X,1:PRINT " * * * * * * ";
10020 LOCATE X,14
10030 FOR I=15 TO 40
10035 IF Y=0 OR Y=4 OR Y=8 OR Y=1 OR Y=5 OR Y=9 THEN COLOR 4 ELSE COLOR 7
10040 PRINT CHR$(219);
10050 LOCATE X,I:
10060 NEXT I
10065 LOCATE X,40:PRINT CHR$(219);
10066 COLOR 7
10067 Y=Y+1
10068 IF X=24 THEN X=X-1:GOTO 10010
10069 IF Y>=10 THEN GOTO 10140
10070 LOCATE (X+1),1:PRINT " * * * * * ";
10080 LOCATE (X+1),14
10085 FOR I=15 TO 40
10087 IF Y=0 OR Y=4 OR Y=8 OR Y=1 OR Y=5 OR Y=9 THEN COLOR 7 ELSE COLOR 4
10090 PRINT CHR$(219);
10100 LOCATE (X+1),I
10110 NEXT I
10120 LOCATE (X+1),40:PRINT CHR$(219);
10130 X=X+1:GOTO 10010
10140 Z=0
10145 PRINT:FOR I=1 TO 40
10150 LOCATE 23,I
10160 IF I>13 THEN COLOR 4 ELSE COLOR 1
10165 PRINT CHR$(219);
10170 NEXT I
10180 PRINT :FOR I=1 TO 40
10190 LOCATE 23,I
10200 IF Z=0 OR Z=1 OR Z=4 OR Z=5 OR Z=8 OR Z=9 OR Z=12 OR Z=13 THEN COLOR 7 ELSE COLOR 4
(.txt)